Copyright>        OpenRadioss
Copyright>        Copyright (C) 1986-2024 Altair Engineering Inc.
Copyright>    
Copyright>        This program is free software: you can redistribute it and/or modify
Copyright>        it under the terms of the GNU Affero General Public License as published by
Copyright>        the Free Software Foundation, either version 3 of the License, or
Copyright>        (at your option) any later version.
Copyright>    
Copyright>        This program is distributed in the hope that it will be useful,
Copyright>        but WITHOUT ANY WARRANTY; without even the implied warranty of
Copyright>        MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Copyright>        GNU Affero General Public License for more details.
Copyright>    
Copyright>        You should have received a copy of the GNU Affero General Public License
Copyright>        along with this program.  If not, see <https://www.gnu.org/licenses/>.
Copyright>    
Copyright>    
Copyright>        Commercial Alternative: Altair Radioss Software 
Copyright>    
Copyright>        As an alternative to this open-source version, Altair also offers Altair Radioss 
Copyright>        software under a commercial license.  Contact Altair to discuss further if the 
Copyright>        commercial version may interest you: https://www.altair.com/radioss/.    
C.../COM04/
      COMMON /COM04/ NUMMAT, NUMNOD, NUMSKW, NUMBCS, NANALY, 
     .   NUMELQ, NUMELS, NUMELC, NUMELT, NUMGEO,
     .   NFUNCT, NCONLD, NINVEL, NLASER, NINTER,
     .   NRWALL, NRBODY, NODMAS, NFXVEL, NRIVET, 
     .   NUMELR, NUMELP, NSECT , NRBAG ,
     .   NJOINT, NUMELTG,NSLAG , NFACX ,
     .   NUMPOR, NACCELM,NPRETEN,NVOLU,
     .   NPART,  NSURF,  NSUBS,  NGRAV,  NRBY2 ,
     .   NGRNOD, NGRBRIC,NGRQUAD,NGRSHEL,NGRSH3N,
     .   NGRBEAM,NGRTRUS,NGRSPRI,NLINK,  INVSTR,
     .   NSLIN,  NUMELX, NCONX,  ISUMNX, NANIM1D,
     .   NR2RLNK, NUMFRAM,  SCODVER, SMINVER, SSRCVER,
     .   NUMELS10,NUMELS20,IDAMPG,NIBVEL,NUMELS16,
     .   NUMELS8,NACTIV ,NDAMP ,NUMELTG6,NUMELS8A,
     .   NRBYKIN,NBCSKIN,NSEGFLU,NEBCS,NEXMAD,
     .   NMADPRT,NMADSH4,NMADSH3,NMADSOL,NMADNOD,
     .   NFXBODY,NEIG   ,NINTSUB,NVENTTOT,NUMELC0,
     .   NUMELTG0,NUMNOD0,NLEVSET,NDETO,NRBYM,
     .   NGSLNRBYM,NFRBYM,NIRBYM,NUMCONV,NFXTEMP,
     .   NRBE3,NGRPART,NGPE,NTHPART,NUMRADIA,
     .   NTABLE,NRBE2,NHRBE2,NINIVOL,NUMELCXFE,
     .   NUMELTGXFE,NLOAD,NLOADC,NLOADP,SIZFIELD,
     .   SIZLOADP,NBGAUGE,NUMNODXFE,NCLUSTER,NUMELIG3D,
     .   ISFEM,NLOADP_F, NLOADP_B, NUMNOR, NINTER25,
     .   NINTER25E,NUMPLY,NUMSTACK,NS10E,NINTERFRIC,
     .   NUMSKIN,NBCSCYC,NRBFAIL,NLOADP_HYD,NINTLOADP,
     .   NINTLOADP21,NLOADP_HYD_INTER,NTSHEG,NRBODY0
  
      INTEGER NUMMAT, NUMNOD, NUMSKW, NUMBCS, NANALY,
     .   NUMELQ, NUMELS, NUMELC, NUMELT, NUMGEO,
     .   NFUNCT, NCONLD, NINVEL, NLASER, NINTER,
     .   NRWALL, NRBODY, NODMAS, NFXVEL, NRIVET, 
     .   NUMELR, NUMELP, NSECT , NRBAG ,
     .   NJOINT, NUMELTG,NSLAG , NFACX ,
     .   NUMPOR, NACCELM,NPRETEN,NVOLU,
     .   NPART,  NSURF,  NSUBS,  NGRAV,  NRBY2 ,
     .   NGRNOD, NGRBRIC,NGRQUAD,NGRSHEL,NGRSH3N,
     .   NGRBEAM,NGRTRUS,NGRSPRI,NLINK,  INVSTR,
     .   NSLIN,  NUMELX, NCONX,  ISUMNX, NANIM1D,
     .   NR2RLNK, NUMFRAM, SCODVER, SMINVER, SSRCVER,
     .   NUMELS10,NUMELS20,IDAMPG,NIBVEL,NUMELS16,
     .   NUMELS8,NACTIV ,NDAMP ,NUMELTG6,NUMELS8A,
     .   NRBYKIN,NBCSKIN,NSEGFLU,NEBCS,NEXMAD,
     .   NMADPRT,NMADSH4,NMADSH3,NMADSOL,NMADNOD,
     .   NFXBODY,NEIG   ,NINTSUB,NVENTTOT,NUMELC0,
     .   NUMELTG0,NUMNOD0,NLEVSET,NDETO,NRBYM,
     .   NGSLNRBYM,NFRBYM,NIRBYM,NUMCONV,NFXTEMP,
     .   NRBE3,NGRPART,NGPE,NTHPART,NUMRADIA,
     .   NTABLE,NRBE2,NHRBE2,NINIVOL,NUMELCXFE,
     .   NUMELTGXFE,NLOAD,NLOADC,NLOADP,SIZFIELD,
     .   SIZLOADP,NBGAUGE,NUMNODXFE,NCLUSTER,NUMELIG3D,
     .   ISFEM,NLOADP_F, NLOADP_B, NUMNOR, NINTER25,
     .   NINTER25E,NUMPLY,NUMSTACK,NS10E,NINTERFRIC,
     .   NUMSKIN,NBCSCYC,NRBFAIL,NLOADP_HYD,NINTLOADP,
     .   NINTLOADP21,NLOADP_HYD_INTER,NTSHEG,NRBODY0
C--------1---------2---------3---------4---------5---------6---------7--

